module event_param
  implicit none
  integer,parameter :: diff_event=1
  integer,parameter :: diss_event=2
  integer,parameter :: rctn_event=3
  integer,parameter :: extn_event=4
  integer,parameter :: sink_event=5
  integer,parameter :: srce_event=6
end module event_param
